COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE  Pseudo-code
C00004 ENDMK
C⊗;
.TITLE  Pseudo-code

; File that requires all the compiled files.  This is meant to be
;overlaid on top of the interpreter. 

. = 41000	;Beginning of instruction space

       .MACRO ASCIE STR
       .ASCIZ STR
       .EVEN
       .ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	CNAME
	.ENDM

.INSRT HALHED.PAL[HAL,HE]
.INSRT	INTOPS.PAL[HAL,HE]
	;The interpreter operation table

STSW  REAL,1	;1 => use the COM0 files, otherwise COMT.
.IFNZ REAL
.PRINT /Using the COM0 files
/
.INSRT	COM0.PAL[H,RF]
.INSRT	COM1.PAL[H,RF]
.INSRT	COM2.PAL[H,RF]
.INSRT	COM3.PAL[H,RF]
.IFF
.PRINT /Using COMT
/
.INSRT	COMT.PAL[HAL,HE]
.ENDC

.IF2
	FOO==.
	.INFO <First location after pseudo code = >,\FOO
	.IFL 50000-FOO
	  .ERR Pseudo code may run into DDT!!
	.ENDC
.ENDC

.END